Cream of the Crop 26/Cream of the Crop 26.iso/program/wsc4d21.zip/EASY_PGM.DFM/EASY_PGM.txt

Text File | 1997-06-03 | 3KB | 116 lines

object Easy: TEasy
  Left = 185
  Top = 52
  Width = 628
  Height = 308
  Caption = 'EASY:  Offline'
  Color = clWhite
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Courier New'
  Font.Style = []
  Menu = MainMenu
  PixelsPerInch = 96
  OnCreate = FormCreate
  TextHeight = 14
  object Memo: TMemo
    Left = 0
    Top = 0
    Width = 620
    Height = 262
    Align = alBottom
    Lines.Strings = (
      '')
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 0
    OnKeyPress = KeyPress
  end
  object MainMenu: TMainMenu
    Left = 31
    Top = 10
    object menuLine: TMenuItem
      Caption = 'Line'
      object menuOnLine: TMenuItem
        Caption = 'OnLine'
        OnClick = menuOnLineClick
      end
      object menuOffline: TMenuItem
        Caption = 'OffLine'
        OnClick = menuOfflineClick
      end
      object menuExit: TMenuItem
        Caption = 'Exit'
        OnClick = menuExitClick
      end
    end
    object menuChange: TMenuItem
      Caption = 'Change'
      object menuPort: TMenuItem
        Caption = 'Port'
        object menuCOM1: TMenuItem
          Caption = 'COM1'
          OnClick = menuCOM1Click
        end
        object menuCOM2: TMenuItem
          Caption = 'COM2'
          OnClick = menuCOM2Click
        end
        object menuCOM3: TMenuItem
          Caption = 'COM3'
          OnClick = menuCOM3Click
        end
        object menuCOM4: TMenuItem
          Caption = 'COM4'
          OnClick = menuCOM4Click
        end
      end
      object menuBaud: TMenuItem
        Caption = 'Baud'
        object menu300: TMenuItem
          Caption = '300'
          OnClick = menu300Click
        end
        object menu1200: TMenuItem
          Caption = '1200'
          OnClick = menu1200Click
        end
        object menu2400: TMenuItem
          Caption = '2400'
          OnClick = menu2400Click
        end
        object menu4800: TMenuItem
          Caption = '4800'
          OnClick = menu4800Click
        end
        object menu9600: TMenuItem
          Caption = '9600'
          OnClick = menu9600Click
        end
        object menu19200: TMenuItem
          Caption = '19200'
          OnClick = menu19200Click
        end
        object menu38400: TMenuItem
          Caption = '38400'
          OnClick = menu38400Click
        end
        object menu57600: TMenuItem
          Caption = '57600'
          OnClick = menu57600Click
        end
      end
    end
    object Debug: TMenuItem
      Caption = 'DEBUG'
      OnClick = DebugClick
    end
  end
  object Timer: TTimer
    Interval = 50
    OnTimer = TimerTimer
    Left = 79
    Top = 9
  end
end